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LL IIII11 SSSSSSSS 3: 
LL pees SSSSSSSS 3; ¢ 
LL I] Ss : 6 
LL I] ss g ¢ 
LL II S$ 3: é 
LL II ss 3: 
LL I] SSSSSS 3: é 
LL I] SSSSSS 3: é 
LL II SS gs ¢ 
LL I] SS gs ¢ 
LL I] Ss = ¢ 
LL I] $s 3: 
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14-Sep-1 
ZTITLE “EDTSPRSEMRIN = parser semantic actions’ 
MODULE EDTSPRSEMRIN ( ! Parser , Sepentts actions 
jOENT = *v04-000' ! File: PRSEMRTN.BLI Edit: JBS1023 
= 
BEGIN 


. 
ORR RAAA AA AAAAAEREAREAAEAAAREAEAAEEH EEE HETETAEAEEAAAAREREARERAEREA EERE 


'@ 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 


. ae | 
oa ) 
; 3 
; ¢ g ¢ 
g 8 1 | : ¢ 
3 1 ® a ¢ 
om 09 : : | 
; 610 19 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * = § 
4 1} 1 fe ALL RIGHTS RESERVED. . a f 
; . w o 

; i ig 1 !'* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND woh ta ; ¢ 
ee | 14 1 !* ONLY IN ACCORDANCE WITH T TERMS SUCH LICENSE AND WITH THE * ; 
gS 15 1 !e USI F THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : ¢ 
; 18 1 !* COPIES THEREOF MAY NOT B OVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
3 17 1 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; ¢ 
: 18 OO18 1 is TRANSFERRED. . a 
° . ® ao” 6 
3 0 0020 1 !* THE otis IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * | 
é 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * of 
; ¢ 99 g :# CORPORATION. : ; i 
: 4 0024 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * i 
: 5 0025 : i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. M : 
(8 BIE 4 
3 g& 0028 1 Nee e keke eee eee eR EAE RA AAA AA AERA AAA A AAA AERA TE AE RATA KAAETERER EAA ; ‘ 
3 9 0029 1! : 

: 3; i 
; : O03) | t+ | 
3 4 34 ¢ ' FACILITY: EDT -=- The DEC Standard Editor : i 
; 4 99 4 | ABSTRACT: a 
; : BsS : Parser semantic actions. : i 
; : 0038 } ENVIRONMENT: Runs at any access mode - AST reentrant : 
: 40 0 1 ! AUTHOR: Bob Kushlis, CREATION DATE: December 12, 1978 7 
>; (41 041 1 : 1 
: 4 04 1 ! MODIFIED BY: ae 
; 66 045 1! | 
3; (44 4 1 ! 1-001 - Original. DJS 25-Feb-1981. This module was created by = | 
; 645 5 oxtrecting routine SEM_ROUT NES from module PARSER. a 
3; «6 § 1! 1-0 § - Reguier ze. peecers. “JBS 12-Mar-1981 - | 
:; 4 1! I- - Use the A macro. JBS 01-Jun-1981 i 
; «4648 3 1 ! 1-004 = Use the vy seoneae codes. JBS 05-Aug-1981 | 
; 49 1 ! 1-005 - In a substitute command, don't allow 2 scanner to swallow Ss { 
; 0 01! $ quoted string after the eanend, a nce sUBs {ure has its | 
3 1 a} syntax for its two strings. Err aRNe - | 
; § § 1! 1- 06 ~ add. PREV V_RANGE, the back pointer — “ahi GE. JBS 02-Nov-1981 | s 
3 1! 1- 3 = Don't scan too far if the SUBSTITUTE command is ill-formed. JBS 28-Dec-1981 i 
; 4 4 1 ! 1-008 - Make the NEXT command have the same fix from edit 1-005 as the SUBSTITUTE $ | 
: 5 a NEXT command. JBS 04-Jan-1982 > | 
3 $ $ 1! 1-008 = Change index for Line numbers from 10 digits to om MB 18-J 43051982 a 
; 1 ! 1-010 = Add error checks for Line numbers out of range. 6-Feb-198 
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; H 2 1! ll- Correct the ns a Be mye so it doesn't hoop on an yn eowes string. JBS 10-Fed-1982 
; 1! 12 = Don't Let a tiff N88 “rept igret b-198 
; 1} 15 - 3 d a missing Sot = ed t 98 
3; § 1} 14 = Fix bad range check from edit 1 ae eb-1982 
; $¢ 1! 15 - Chan e range cher’ error aa ae: na | 1-01 rable) Ay 16-Feb-1982 
eg | 1! 1§ - Set define key ¥g can eccepr gato key. FY -Apr- 982 | 
: 64 ii 17 = Delete reference. ts edt $900 serve 9-Apr-1982 
oo. a s oF 13 = Make TAB COUNT ned. ~Apr=198 
: 66 1! 19 - Change ee onal a. ¢ test. ih 19-Jul- 969 
; 6 67 1! 0 - New implementation gt ger’ ned keys. JBS Oi-0e4"198 
; 668 : 1! l- poel 17 to use new 48 bit arith waste. a's 1 oct 1982 
3 $8 1! ‘cS - ve 3 use new compare macro. 5 e000 
; 0 > ey - Aad vT220 support conditional. ues 1 wats} 
3 71 0071 1! 
s ve 0072 1 
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Declarations 


E he Sa 


In the routine 


EDTSSPA_SEMRUT; 
EXTERNAL REFERENCES: 


oe 
” 
= 
z 
ud 
e 
Fe 
—_) 
—— 
oO 
us 
a 
= 
— 


REQUIRE ‘EDTSRC: TRAROUNAM’ ; 
FORWARD ROUTINE 
INCLUDE FILES: 
REQUIRE ‘EDTSRC:EDTREQ'; 
REQUIRE ‘EDTSRC:PARLITS'; 
LIBRARY ‘EDTSRC:KEYPADDEF '; 
LIBRARY ‘EDTSRC:SUPPORTS'; 
' 
i 
i 
i 
EQUATED SYMBOLS: 
i 
: OWN STORAGE: 
i 
i 
i 
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nw 
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o 
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104 EDTSSPA_SEMRUT parser senentte actions 1o- 300-1882 93: $3 93 DISK$V nen STER: CEDT OSRCSPRSEMRTN.BLIG?” (3) | 

‘ ' . s { 
; 133 3s } ZSBTTL ‘EDTSSPA_SEMRUT parser semantic actions’ ; 4 
3; 115 9 3 1 GLOBAL ROUTINE EDTSSPA_SEMRUT ( ! Parser semantic actions ; f 
3 11g 969 1 W a i Action number to perform ; § 
ay 970 1 OPERAND i Token 3s ft 
145 2 poe a 
: 120 378 1 44 : 
H ; 1 4 : FUNCTIONAL DESCRIPTION: : ; 
: 1 : aS 1 The semantic actions for the parser. Which specifies which of the ‘ é 
; 126 977 1: actions to perform. Operand is the index of the token which matched ‘ 4 
; : 5 44 : if the semantic routine was called as a result of a select operator. | : ‘ 
: ? 980 1 FORMAL PARAMETERS: if 
: : , aes ' WHICH Action number to perform : ; 
; 131 98h OPERAND Token which matched if 
; : 98 IMPLICIT INPUTS: if 
: 135 988 1 EDTSS$A_CMD_END : & 
; 1 989 1 | EDTSS$C_PA_ =. 4 
s 137 990 1! EDTS$G_ PA. CURCMD ee | 
; «4138 0991 1: EDTSS$A_PA_CURTOK : é 
: 139 o236 1 i EDTSSG_ PA CURTORLEN : é 
: 140 993 1! EDTSSL_PA_NUMVA : é 
3 6141 0994 1/3 EDTS$G7 ~ph-e NT" : é 
; | 0995 1! EDTSSA_PA_PRVTOK : é 
s 4 Bone 1 i EDTS$$G_PA_PRVTOKLEN : é 
3 144 0997 1! EDTS$G_PA_ a : é 
3 «6145 0998 1} EDT$$2_PA_THRURNG ; é 
3 6146 0999 1: EDTS$G_PA_ TORCLASS : é 
3 «(147 1000 1! EDTS$S$L_LN : é 
3 138 9d : EDT $867 TAB S12 ; ; 
; 130 1008 : IMPLICIT OUTPUTS: : ‘ 
; 138 1005 1: EDT$$G_PA_CURCMD : | 
3; 15 1ON8 1: EDT$$G_PA_ERRNO ; { 
: «154 1007 1! EDT$$2_PA_CURRNG : f 
3; 155 1008 1} EDT$$2_PA_BUFRNG : 
3 138 1009 1: EDT$$Z_PA_ANDLSTHD -} 
ie 1010 1 EDTSS$A_CMD_BUF : 

3 138 131) : EDT$$G_PA_RNOQUO . 
: 160 1018 ROUTINE VALUE: | 
; 166 1818 1 0 = failure, 1 = success ; 
3; 1918 1 i ; | 
3: «1646 1017 1! SIDE EFFECTS: : | 
s 165 ois 1 s 
Oe ee tee 3 
: 168 1 A 1 i- . 1 
3; «6169 1022 1 : 


pint com ! Initialize for a command | 
' ¢ 
| 


i Make sure the Last command turned off EDT$$G_PA_NOQUO , otherwise there may 
Rod subtle interactions of commands. 


ASSERT ( -EDTS$G_ PA_NOQUO EQL 0); 
EDTS$$G_ DEFKEY ="0;~ 


| 
IF (.EDTS$G_PA_CURCMD NEQ 0) THEN EDTS$$G_PA_CURCMD CNEXT_COM] = .EDTS$G_PA_SP; | 
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04 EDTSSPA_SEMRUT “ parser senentic actions 14-Sep 71382 9}; $3 9 DISK SKSVMGM STER: tt 1 SRCSPRSEMRTN. BLI; as (33 | 
3 170 19 ; BEGIN ‘ 
; 1% 1025 EXTERNAL ROU OUT INE | : 
: i? i? § EDISSPA- db : NOVALUE, ! Get the next token ‘ 
; 175 1 8 EDTS$S$PA_GETCH : NOVALUE, ! Get the next character from the input Line : 
; 178 1 EDTSSPA_CRERNGNOD, ' Create a range node ° 
; ivr 18 ? EDTSSPA_NEW_NOD; ! Create a semantic node | ; 
: 179 18 ; EXTERNAL ; 
; 180 1 EDTSSL_MAX =LINES, ! maximum Line number value | ; 
3 18) + 4 EDTSSA_CAD “BUF ! Pointer into command buffer. ‘ 
3 fF ¢ 1035 EDTSSA_CMD-END, ! Pointer to end of current command. ; 
: 18 10 6 EDT$$Z =PA -ANDLSTHD : REF NODE BLOCK, : 
; (184 10 EDTSSz_PA =BUFRNG : REF NODE_BCOCK, ‘ 
; 185 1038 EDTSSC_P ! the currently being processed character . 
3 186 1039 EDT$$G_P ATCURCHD : REF NODE_BLOCK, : 
; «187 1040 EDT$$2_ -PAy CURRNG : REF NODE_BLOCK, ! the current range node : 
; 4188 1041 EDTSSA_PA_CURTOK, ! start of the current token : 
; #189 1006 EDTS$G_ EY : 
: 190 104 EDTS$$G_PA_CURTOKLEN, ' Length of current token | ; 
; 6191 1044 EDTS$G_ RRNO, ! Error number of parsing error. ; 
: 136 1045 EDTSSL_ =PAn “NUMVAL : LN_BLOCK, ! the value of a numeric Literal : 
; #19 1046 EDTS$G_ CENT, ! Did the keyword contain a percent? ; 
: 194 1047 EDTSSA_ PA PRVTOK, ! Previous token address : 
; 132 ee ED TSSe-PA PA-PRVTOKLEN, ! Previous token Length : 
3 197 1050 EDT$$2_P ASTHRURNG REF NODE_BLOCK, ! The currently being built thru type range ; 
; 198 1051 EDTS$$G_ Pay TOKCLASS, : class of current token ; 
; 199 1026 2 EDTS$G_PA uo, ! Don't allow quoted strings in the scanner 3 
° ‘ : ° . 
oy 1387 EDTS$L_LNOO LNOVECTOR C14) ‘ 
; 0§ L 1922 + fs SUPPORT_VT220 : 
3 B Wee - EDTS$B_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE], ! Information about characters : 
; 1059 3 
s ¢€ 1300 EDT$$G_TAB_SIZ; ! Current tab size, for error checking : 
H § P 106 MESSAGES ((INVBUFNAM, QUOSTRREQ, NONALPNUM, SUBSTRNUL, UNRCOM, KEYNOTDEF, NUMVALREQ, INVPARFOR, INVVALSE : 
s @ 106 ERRRANSPC, ERRCOMOPT, UNRCOMOPT, COLONREQ, MACKEYREQ, ENTMUSTBE, ASREQ, INVSTR, NUMVALILL) 5; 3 
106 : 
: 106 | ; 
: 106 CASE .WHICH FROM 1 TO NUM_SEM OF | : 
3 106 SET : 
3 1 | : 
3 1 3 
1 : 
3 1 F 
3 1 é 
; 1 3 
3 1 : 
3 1 3 
; 1 3 
3 1 3 
3 1 ; 
a 1 : 
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DTSPRSEMRIN = parser semantic ection 
DTSSPA_SEMRUT = parser semant 


6 
(3). 


EDTS 
EDTS 
; 5 ! 9 IF (CEDTS$G_PA_CURCMD = EDTSSPA_NEW_NOD (COM_NODE, .OPERAND)) EQL 0) THEN RETURN (0); : 4 
; 1 \4 | * 
; ; : § If this is the SUBSTITUTE or NEXT command, don’t let the scanner take the next token as a quoted string. ‘ 2 
; 1085 ; ; Ss 
; g i $ IF ((.OPERAND EQL 16) OR (.OPERAND EQL 19)) THEN EDT$$G_PA_NOQUO = 1; : 2 
: 235 1088 END; | sq 
; 1090 CINIRAN] : ! Initialize for a range : d 
3 | 1 BEGIN | : | 
; vs 1098 IF (CEDTS$Z_PA_CURRNG = EDTSSPA_NEW_NOD (RANGE_NODE, .OPERAND)) EQL 0) THEN RETURN (0); 
; 4 1996 4 IF (.EDT$$G_PA_TOKCLASS EQL CL_NUMBER) | 
: 44 1097 MOVELINE (EDTSS$L_PA_NUMVAL, EDT$$Z_PA_CURRNG CRAN_VALJ); 
: 266 1099 END; 
; 267 1100 
; 48 1101 CSTART_RANGE) : 
; 26 1108 BEGIN 
; 250 110 | 
3; 251 1104 4 IF (.OPERAND NEQ 0) 
; 28 1399 THEN 
; 2 1107 IF (EDTSSPA_SEMRUT (INIRAN, .OPERAND + NUM_SLR) EQL 0) THEN RETURN (0); | 
; 36 1109 END; 
: 25 1110 | 
; 258 1111 CBUF_RAN] : | 
; 259 1112 N 
; 60 1113 EDT$$G_PA_ERRNO = EDT$_INVBUFNAM; 
; 62 1115 IF ( NOT EDTSSPA_APPDIG ()) THEN RETURN (0); 
; | 
; 66 ni? IF (EDTSSPA_SEMRUT (INIRAN, RAN_BUFFER) EQL 0) THEN RETURN (0); | 
: 66 1119 EDT$$2_PA_CURRNG CBUF _NAM J = .EDTS$A_PA_CURTOK; | 
> 26 1120 EDT$$2~PA-CURRNG CBUF~LEN) = .EDT$$G_PA_CURTOKLEN; 
; 268 1121 EDT$$2-PA_BUFRNG = .EDT$$Z_PA_CURRNG; | 
; 269 11 é EDTSSPA_SCANTOK (); 
3 0 11 END; 
: 271 1126 | 
3; 27. 1125 CAPP_NUM] : ! Append numerics to a name. 
; a3 i 6 EDTS$PA_APPDIG (); 
: $75 1138 [BUF _RAN2] : 
; 27 1129 BEGIN 
3; 27 1130 EDT$$Z_PA_BUFRNG CRANGE1) = .EDT$$Z_PA_CURRNG; 
: 27 1131 EDT$$Z_PA_CURRNG = .EDT$$Z_PA_BUFRNG; 
.- om 1] § END; 
; 281 1124 CGETSTR] : 
; é 1135 BEGIN 
3 11 EDT$$Z_PA_CURRNG CRAN_VAL) = .EDT$$G_PA_PRVTOKLEN; 


H 5§ 
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EDTS$Z_PA_CURRNG CSTR_PNT] = .EDTSSA_PA_PRVTOK + 1; 
IF (.EDTS$Z_PA_CURRNG CRAN_TYPE] EQL RAN_MINUS) THEN EDTS$$Z_PA_CURRNG CRAN_TYPE] = RAN_MINSTR; 
END; | 


CALLRAN) : ! ALL appended to a range 
BEGIN 


EDT! 
V a 


<m 


LOCAL 
SUB_RAN : REF NODE_BLOCK; 


SUB_RAN = .EDTS$$Z_PA_CURRNG; ! Save the first part of the range 
IF ( NOT EDTSSPA_SEMRUT CINIRAN, RAN_ALL)) THEN RETURN (0); 


'¢ 
i Link the original range with the ALL clause. 


EDTS$$Z_PA_CURRNG (N nT ~RANGE) = .SUB_RAN; 
SUB_RAN CPREV_RANGE .EDT$$2_PA_CURRNG: 


BEGIN 
EDTSS$G_PA_ERRNO = EDT$_QUOSTRREQ; 
RETURN (0); 


i 
2 
4 
4 
4 
END; 
EDT$$Z_PA_CURRNG [RAN_VAL] = .EDT$$G_PA_CURTOKLEN; 
EDTS$Z PA~ CURRNG CSTR “PNT] = .EDTS$A~PA-CURTOK + 1; 
SSPR_ STANTOK (); 
R 
4 
3 


CRAN1) : 
EDTS$G_PA_CURCMD CRANGE1] = .EDT$$Z_PA_CURRNG; 


CRAN2) : 
EDT$$G_PA_CURCMD CRANGE2] = .EDT$$Z_PA_CURRNG; 


CPLUSRAN) : 
IF (EDTS$PA_CRERNGNOD (RAN_PLUS) EQL 0) THEN RETURN (0); 
CMINUSRAN) : | 
IF (EDTS$PA_CRERNGNOD (RAN_MINUS) EQL 0) THEN RETURN (0); 
| 
| 


IF (.EDTS$G_PA_TOKCLASS NEQ CL_STRING) 
THEN 


CFORRAN) : 
IF (EDTSSPA_CRERNGNOD (RAN_FOR) EQL 0) THEN RETURN (0); 


MIPIPITOPOTURD 
REALS SRO EUV SOBNO NEW AOSR IRAE WU LO OS IORI OD 


! value following FOR, +, ORIGINAL and - 


4 pet te} te pet RRP PRN RP OS Se o 


ANNUM] : 
BEGIN 
Fagg oO TSEL PA nn, CLN_MD] NEQ 0) OR (.EDTSS$L_PA_NUMVAL CLN_HI] NEQ 0)) 


ooo 
ooo 
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; 194 BEGIN 

195 EDTSSG_PA_ERRNO = EDTS_NUMVALILL; 

! RETURN (OJ; 

1 e 

1 


EDTS$Z_PA_CURRNG CRAN_VAL] = .EDTSSL_PALNUMVAL CLN_LOJ; 


CLINE_NUM_RANGE] : ! Numeric range vejue 
MOVELINE (EDTSS$L_PA_NUMVAL, EDT$$2_PA_CURRNG CRAN_VALJ); 

CLINE NUM) : ! the Line number 
BEGIN 


LOCAL 
MULT 
DIGI 


PLIER 


] ° 
T : LN.BLOCK; 


+ 


! If the Line number goming in is greater than maximum allowed before 
multiplication by 10**5, then return error 


If (CMPLNO CEDTSSL_PALNUMVAL, EDTSSL_MAX LINES) GTR 0) 


BEGIN 

EDT$$G_PA_ERRNO = EDTS_NUMVALILL; 

RETURN” (03; 
MULTLINE (EDT$S$L_LNOO [5], EDTS$SL_PA_NUMVAL, EDTSS$L_PA_NUMVAL); 
IF (CHSRCHAR (.EDTS$A_PA_CURTOK) EQL %C".") 


BEGIN 
MULTIPLIER = 4; 


ma a ak a a a a a a tk at a os — 9 — 4 2 — 2 — 2 4 8 es 4 ss — 2 — 2 — bs — 9 — 4 49 2 4 man 


peat Let LS Syl ee es erg re cet at Re Nae ater igre esscs oO 


SVP OA OO ITU BB EE BEE EES PAE WWE & EE AIIM IPIPIPININIINNNH EE 


L Z1IF SUPPORT_VT220 
Ly ZTHEN 
81 WHILE (.EDTS$B_CHAR_INFO C.EDTSS$C_PA_CH, 0, 0. 8, 0] EQL %x'FO") DO 
: y ZELSE 
$e U _ WHILE ((.EDTSS$C_PA_CH GEQ %C'O") AND (.EDTSS$C_PA_CH LEQ %C'9")) DO 
a9 BEGIN 
+4 BUILDLINE (.EDTS$$C_PA_CH - %C'O', DIGIT); 
$6 IF (.MULTIPLIER GEQ 0) 
91 THEN 
4 BEGIN 
9 MULTLINE (EDT$$L_LNOO C.MULTIPLIER], DIGIT, DIGIT); 
94 ADDLINE (DIGIT, EDTS$L_PA_NUMVAL) ; 
95 ND; 
39 EDTSSPA_GETCH (); 
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MULTIPLIER = .MULTIPLIER = 1; 
END; 

EDTSSPA_SCANTOK (); 

END; 


CBIN_RANGE) : 
BEGIN 


IF ((EDTS$Z_PA_THRURNG = EDTSSPA_NEW_NOD (RANGE_NODE, 0)) E@L 0) THEN RETURN (0); 
EDTS$Z_PA_THRURNG CRANGE1 = .EDTSSZ_PA_CURRNG; 


CTHRU RAN) : 
EDT$$Z_PA_THRURNG fran TYPE] = RAN_THRU; 
EDTS$$Z_PA_THRURNG CRANGE2] = .ED1$$Z_PA_CURRNG; 
$$2_PA_THRURNG; 


EDT$$Z_PA_CURRNG = .EDT 
END; 

CAND HEAD] : 
EDTS$Z_PA_ANDLSTHD = .EDT$$Z_PA_CURRNG; 


CAND_NEXT]) : 
BEGIN 


LOCAL 
RANGE : REF NODE_BLOCK; 


RANGE = .EDT$$Z_PA_ANDLSTHD; 


! AND or a comma 


'¢ 
Find the Last range so we can put the new one on the end. 


; $ 
f 
ie 


+ 


i 
l 


WHILE (.RANGE CNEXT_RANGE] NEQA 0) DO 
RANGE = .RANGE CNEXT_RANGEJ; 


RANGE CNEXT RANGE -EDTS$$2 ert + 


= 
EDT$$Z_PA_CORRNG tprew RANGE] =" RANGE; 
EDTSS2_PA_CURRNG = ,EDT$$Z_PA_ANDLSTHD; 


Cunt exsyes : ! Distinguish SUBSTITUTE from SUBSTITUTE NEXT 
IF (.OPERAND EQL 1) THEN EDTSS$G_PA_CURCMD CCOM_NUM] = COM_SUBS_NEXT; 

nce we are in what seemed to have been a substitute command, the EDT$$G_PA_NOQUO 

ag must be set. 
ASSERT (.EDT$$G_PA_NOQUO) ; 
END; 


BR. | 
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04-000 EDTSSPA_SEMRUT "> parser semantic actions 12-86-1382 93:52:92 DL SKSVMEHASTERSCEDT SRCSPRSEMRIN.BLI<3® 3 V06- 
; 455 1 08 CSTRINGS) : ! Get the search and replace strings for SUBSTITUTE 
7? $ 1 BEGIN | 
2: 8 131 OCAL 
; 4 1 \ STRNODE : REF NODE_BLOCK, 
; 460 131 CURSOR, 
: te 1318 | 
: 46 131 rr 
: 464 1 i ! The EDTS$G_PA_NOQUO flag had better be set, to keep the scanner from having 
5 ree : ig swallowed a quoted string. Consider the fol lowing case: 
; 48? 1320 ; *SUBSTITUTE 'A'B' 
: 469 1 ‘ > i we must use * as the delimeter, but the scanner would absorb ‘A’ as a single (string) 
; 470 1 ' token unless the — is set. We clear the flag here since we will not be calling 
: $f} : ¢ the scanner again until after we have scanned out two strings. 
: 47 1326 ASSERT (.EDTS$$G_PA_NOQUO); 
: 7% c EDT$$G_PA_NOQUO™= 0; 
; of : ; IF (CSTRNODE = EDTSSPA_NEW_NOD (STR_NODE, 0)) EQL 0) THEN RETURN (0); 
; 
: +78 : 1 EDT$$G_PA_CURCMD CSTR_PNT] = .STRNODE; 
; 480 ‘ 4 If (.EDTSSG_PA_TOKCLASS NEQ CL_SPECIAL) 
: 48 1335 4 BEGIN 
; 48 1 4 EDT$$G_PA_ERRNO = EDT$_NONALPNUM; 
5 tke : H 4 — (0); 
: 486 1339 ’ 
: 487 1340 QUOTE = CHSRCHAR (.EDT$SA_PA_CURTOK); 
; 488 1341 CURSOR = CHSPLUS (.EDTSSA_PA_CURTOK, 1); 
3 rt ts ’ ri} STRNODE CSRCHADDR] = .CURSOR; 
: 491 1344 UNTIL ((CHSRCHAR (.CURSOR) EQL .QUOTE) OR (.CURSOR GEQU .EDTSSA_CMD_END)) DO 
; 2 1346 CURSOR = CHSPLUS (.CURSOR, 1); 
; 494 1 23 STRNODE CSRCHLEN] = .CURSOR - .EDTS$SA_PA_CURTOK - 1; 
: rt ’ rt CURSOR = CHSPLUS (.CURSOR, 1); 
: 497 1350 4 IF (.CURSOR GTRU .EDTSS$A_CMD_END) | 
3; 49 1351 3 THEN 
3; 6 1 § 4 BEGIN 
; 500 1353 4 EDT$$G_PA_ERRNO = EDTS_INVSTR; 
H rt : 3 4 RETURN’ (0); 
; 30 1356 . 
; be : 5 STRNODE CREPADDR] = .CURSOR; 
; 206 1 35 UNTIL ((CHSRCHAR (.CURSOR) EQL .QUOTE) OR (.CURSOR GEQU .EDTSSA_CMD_END)) DO 
; Ht ! 9 CURSOR = CHSPLUS (.CURSOR, 1); 
> UY 136¢ STRNODE CREPLEN] = .CURSOR - .STRNODE CREPADDR); | 
: 310 136 EDTS$$A_CMD_BUF = CHSPLUS (.CURSOR, 1); 
> 511 1364 EDTS$SPA_GETCH (); 
| 
| 
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EDTSSPA_SCANTOK (); 
— CREPLEN] EQL 0) AND (.STRNODE CSRCHLEN] EQL 0)) 


BEGIN 
EDTS$G_PA_ERRNO = EDT$_SUBSTRNUL; 
RETURN (OJ; 
END; 
REGIE ene : ! We will be using the strings from the Last SUB or SUB NEXT 


ASSERT (.EDT$$G_PA_NOQUO) ; 
gb Tess. PA NOQUO™= 0; 


CFILSPC) : ! Scan a file name 

BEGIN 
LOCAL 

SCAN_DONE, ! 1 = file name scan complete 

: Current character being processed 

QUOTE_CHAR; ! 0 = not in a string, non-zero = right quote character 
ASSERT ((2C°*’* NEQ 0) AND (2C°''* NEQ 0)); 
EDTS$G_PA CURCMD CFILSPEC) = JEDTSSA, PA_CURTOK; 

A age: * -EDTSSA_PA_CURTOK; 


EDTS$ 

AN_DONE = 

QUOTE_CHAR = 0; 
WHILE ( NOT .SCAN_DONE) DO 

IF CHSPTR_GTR (.EDTSSA_CHD_BUF, .EDTSSA_CMD_END) 

SCAN_DONE = 1 

| 

| 

} 


BEGIN 
CHAR = CHSRCHAR_A (EDTS$SA_CMD_BUF); 
IF (.QUOTE_CHAR EQL 0) 

THEN 


SELEC TONE ~ CHAR OF 
SET 
Czc’ *, 2C°/*) : 


SCAN_DONE = 1; 


cxc’""", xcr''') : 
QUOTE_CHAR = .CHAR; 


COTHERWISE) : 
EGIN 


END; 
TES 
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- parser semant 


ELSE 
IF (.CHAR EQL .QUOTE_CHAR) THEN QUOTE_CHAR = 0; 

END; 
EDTSSC_PA_CH 
EDT$$G_PA_ CURCHD cGfsécuewa = -EDTSSA_CMD_BUF = .EDT$$G_PA_CURCMD CFILSPEC) - 1; 
EDTSSPA_STAN 
END; 

CHELPSTR] : 
BEGIN 
EDTSS$G_PA ate CFILSPE eC) = -EDTSSA_ PA_CURTOK; 
EDTSSA_CMD_B -EDTSSA_PA_CURTOK; 
EDTSSPA_ CETL QO: 
WHILE ((,EDTSSC_PA_CH NEQ %C'!") AND (.EDTSS$C_PA_CH NEQ %C°;')) DO 
EDTS$PA_ GETCH 7%); 


EDTS$G_PA_CURCMD fF SPCLens = .EDTSSA_CMD_BUF - .EDTS$G_PA_CURCMD CFILSPEC] - 1; 


EDTSSPA_ STANTOK (); 


CCHKALPHA) : 
Frag OO TORE PA FORCL AES EQL CL_NAME) AND ( NOT .EDTS$G_PA_PCENT)) 
BEGIN 
EDTS$G_PA_ERRNO = EDTS_UNRCOM; 
RETURN’ (0); 
CA_SWITCH) : 
BEGIN 
LOCAL 
SWITCH_NODE : REF NODE_BLOCK; 
if {-EDTSS6_PA_CURCRO CSWITS) EQL 0) 
BEGIN 
IF ((SWITCH_NODE = EDTSSPA_NEW_NOD (SW_NODE, 0)) EQL 0) THEN RETURN (0); 
EDTS$G_PA_CURCMD CSWITS] = .SWITCH_NODE; 


LSE 

SWITCH_NODE = .EDTS$G_PA_CURCMD CSWITS); 
IF ((.SWITCH_NODE CSW_BITS] AND (1*.OPERAND)) NEQ 0) THEN RETURN (0); 
SWITCHLNODE CSW_BITS] = (.SWITCH_NODE CSW_BITS] OR (1*.OPERAND)):; 


CSWITCH_1) : 


eoyerenennre 
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DTSPRS semen - > parser semantic action Sep 4 3: VAX-11 Bliss-32 V4.0-74 Pa 13 
DTSSPA_ - parser ponent te actions 12-8 Sep 71382 9}; gi 9 DISKSVMSMASTER: CE 134 SRCTPRSEMRTN-BLIGT (3) 
: BEGIN 
4 BIND 
? SWITCH = .EDTSSG_PA_CURCMD CSWITS] : NODE_BLOCK; 
4 sulTcH t (EDTSSL_PA_NUMVAL, SWITCH CSW_VAL1]); 
é T SEQ_VALJ“= T; 
CSWITCH 2) : 
BEGIN 
BIND 


SWITCH = .EDTS$G_PA_CURCMD CSWITS] : NODE_BLOCK; 
MOVEL INE (EDTSSL_PA_NUMVAL, SWITCH CSW_VAL2); 


EDTSS$G_PA_CURCMD CSET_TYPE] = .OPERAND; 


CSETVAL] : 
LOTssG_ PA_CURCMD CSET_VAL] = .OPERAND; 


CSET “ah : 
BEG! 
IF ¢ 


=PA_NUMVAL 
$$L-PA_NUMVAL 


LN NEQ 0) OR 


$317 PA_NUMVAL ELN=hp -403 GTRU 32767) a } 
LN “Ht NEQ 0)) 


at) i = EDTS_NUMVALILL; 


corse, pa.cuncr CSET_VAL] = .EDTS$L_PA_NUMVAL CLN_LOJ; 


CSET ARG1) : 
BEG! 


$L_PA_NUMVAL tN: RD) Ne eree se76?) of ; 
LN-HI 


$ 
tty L>PA_NUMVAL 


$L-PA_NUMVAL NEG 0 83)" 


G_PA_ERRNO = EDTS$_NUMVALILL; 
N’ (OJ; 


| 
| 
CSETTYPE) : 


epssc_pa_cunem CSET_VAL1) = .EDTS$L_PA_NUMVAL CLN_LO); 


COEF KEY) : ! Start of key uescription 
EDTSSG_DEFKEY = 1; 


ee ee a ee ee a a ee ee ee ee ee eee 6 TIETY 
Pw wal al al a) ah eal al eal ah ah ah a) ahah eh eh ah eh eh eh eh eh ah ah ab ah ah ab ab ah al al al al al oe oe oe oe oP ae oP or pe oP ar 

PAA A NIPPIPIPDPYININININIDD 8 3 9 0 | “DOC OCOOCOCOCOCOCOCOOOOOOOOOWOWOcccccRCe~ -—1-4 
MEW @OOONAU EWN 0 OONOAMUS WN (OO OONOAUEWN  O ODONOUES WN —"OOONAUSWN—O”O ww 


AAPDINIWIWIA EE BPW & EAP WWE BW & BE ANIIININIPONOPININI WWI WII AIR PRONIWINIOO 


EDT! 
V04: 


IF (.EDTS$L_PA_NUMVAL CLN_LOJ GTR 21) 
THEN 


BEGIN 
EDT$$G_PA_ERRNO = EDTS_KEYNOTDEF; 
pC TURN (OJ; 


END; 
COEF peoik DELI : 
EDIS8C, PA_CURCMD CKEY_VAL] = ASC_K_DEL + K_GOLD_BASE; 


COEF PEL ETE? : 
1 ese mead CKEY_VAL] = ASC_K_DEL; 
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EDTSPRSEMRIN DISPRSEMRTN = parser semantic action 16-5e 1984 VAX-11 BLi $e3e 4 
TOL e008 EDISSPAS SEMRUT ‘ parser sonentte ect tens ~3007} 38? 9}: $i 9 Disk KSVMSMASTER: as 37 sec SPRSEMRIN. BLI; pyee 3} 
; 3 } END; 

3 5 1 

3; ¢ 1 

; ¢ 18} 

3; 6 1 tg 4 IF ((.EDTSSL_PA_NUMVAL LN. LO ee sere | ! 
3; ¢ 1545 4 (.EDTSSL— “PA. NUMVAL N_MD $33," 

; «691 1544 3 CEpTsst> PA “NUMVAL tN “HI NEG ») 

: 83 i ig i "BEGIN 

> 69% 1547 4 EDT$$G_PA_ERRNO = EDTS_NUMVALILL; 

; 695 1546 4 RETURN” (OJ; - 

: 839 1886 8 é 

; 698 1 af 4 IF (.EDTSSL_PA_NUMVAL CLN_LOJ GTR 21) 

3 6% 1 26 3 THEN 

; 700 1553 4 BEGIN 

; 701 1554 4 EDT$$G_PA_ERRNO = EDTS_KEYNOTDEF; 

; 70 1555 4 RETURN (OJ; 

; 70 1 2$ 3 

; 7046 155 

3 eg : 3 END; 

; 709 : $' CGOLD 5 ain : ! GOLD key number 
; 709 1 6¢ EDTS$$G_PA_CURCMD CKEY_VAL] = .EDTSS$L_PA_NUMVAL CLN_LOJ * K_KPAD_BASE + K_GOLD_BASE; 
; 1 1564 4 IF (CC. EDTssL -PA_NUMVAL CLN_LOJ GTRU saree? * ! 
3 1 1565 4 (.EDTSSL— ~PA_NUMVAL LN_ “MD)] NEQ 0) 

3 1 1 $8 4 (.EDTSSL-PA_NUMVAL CLN_HIJ NEQ 03)” 

3; 71 1567 3 THEN 

3 1 1568 4 BEGIN 

; 1 1569 4 Ee tees PA_ERRNO = EDTS_NUMVALILL; 

3; 71 1570 4 RETURN (0); 

:; 71 1571 ; END; 

3 1 1 Le 

3; fe 1573 4 

; 1574 3 

; 1575 4 

3 1 A 4 

: i § 

3 1 ie 

3 1580 

; ' 1 

; 1388 

3 1 

; 1585 

3 1 

3 1 

2 1 

: 1 

8 1 

: 1 

: 1 


Ay Leal ah ah ah Ab sb Ab Ab db Ab Ab db dh hb db bb dh hhh bh bbb obo th dh ah dh sh ah ah ah Ab ah Ah ah Ab ahh a) 
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CKEY_NUM) : ! Key number 
te PA_CURCMD CKEY_VAL] = .EDTSSL_PA_NUMVAL CLN_LOJ + K_KPAD_BASE; 
| 
CDEF_CHAR) : 
| 
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; 740 1 33 BEGIN 
3 41 1 EDTS$G_PA_ERRNO = EDTS_KEYNOTDEF; 
: 74 1595 RETURN’ (OJ; 
; 7% 1 38 ; 
s 746 159 
3 765 1 38 CDEF_GOLD_CHAR] : 
; oe 13 BEGIN 
: 74 1809 LOCAL 
; 74 16 ¢ CHAR; 
3; 30 16 
; 751 16 CHAR = CHSRCHAR (,EDTSSA_PA_CURTOK); 
: , é 16 5 EDTS$G_PA_CURCMD CKEY_VAC] = .CHAR + K_GOLD_BASE; 
3 $ 1607 2 IF ((.EDTSS$G_PA_CURTOKLEN NEQ 1) OR ! Other than one char in string 
; 756 L 1609 4 XIF SUPPORT_VT220 
; 757 1610 4 XTHEN 
; 758 1611 4 (.EDTS$B_CHAR_INFO C.CHAR, 0, 0, 8, 0] EQL %X'FO') OR ! Digit 
; 759 U 1ol¢ 4 ZELSE 
; 760 U 161 4 ((. CHAR GEQ %C°O') AND (.CHAR LEQ %C°9")) OR ! Digit 
; 761 1614 4 &FI 
s 6 1615 4 
; 76 1918 4 (.CHAR LSS 32) OR ' CO control char (must use CONTROL) 
: 7646 1617 4 (.CHAR GTR 255) OR ' Not a character 
; 765 1618 4 ((. CHAR GEQ 128) AND (.CHAR LSS 128 + 32)) OR ' C1 control char 
: 766 1619 4&4 (.CHAR EQL ASC_K_DEL)) ' DEL (must use DELETE) 
: 767 1620 3 THEN 
; 768 1621 4 BEGIN 
; 769 16 ; 4 EDTS$G_PA_ERRNO = EDTS_KEYNOTDEF; 
; 770 16 4 RETURN (0); 
; 771 1624 END; 
3; 77 1625 
3: 77 16 § EDTSSPA_SCANTOK (); 
3; 7746 16 END; 
3; 775 1628 
3 77 1629 CGOLD_CONT) : 
3; 77 1630 BEGIN 
s in 1631 
3; 77 16 § LOCAL 
im ot ergs 
3; 7 4 1635 CHAR = CHSRCHAR (.EDTSSA_PA_CURTOK) = 64; 
: , 16 EDT$$G_PA_CURCMD CKEY_VAC) = .CHAR + K_GOLD_BASE; 
; 785 16 3 4 IF ((. EDT$S$G_PA_CURTOKLEN NEQ 1) OR ! 
; 7 16 4 (. CHAR L R ! 
me. 1640 4 (. CHAR GTR 5) OR ! 
: 7 1641 4 ((. CHAR GEQ ) AND (.CHAR LSS 128)) OR 
; 789 1946 4 (. CHAR GEQ 1 + 32)) 
3 164 3 
; 791 1644 4 BEGIN 
3 424 1645 4 EDTS$G_PA_ERRNO = EDTS_KEYNOTDEF ; 
:; 79 1066 4 RETURN” (OJ; 
; 794 164 3 
; 795 1oe8 
: 79% 164 EDTSSPA_SCANTOK (); 
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104-000 EDTSSPA_SEMRUT ¢- parser semantic actions 12280-1382 93:52:98 DLSKSVMSMASTERCEDT SRCTPRSEMRTN.BLIG?® (3) | 

; 797 16 END; 

; 138 16 ? | 

ee 16 g CCONT_CHAR] : 

; 800 16 BEGIN | 

3 1 1654 

; ¢ 1655 LOCAL | 

3 12 § CHAR; 

; 805 16 8 CHAR = CHSRCHAR (,EDTSSA_PA_CURTOK) = 64; 

; 06 1659 EDTS$G_PA_CURCMD CKEY_VAC] = .CHAR; 

; 08 1661 4 IF ((.EDTS$G_PA_CURTOKLEN NEQ 1) OR ' 

3 1666 4 (. CHAR LSS 9 OR ' 

3; 810 1663 4 (.CHAR GTR 255) OR i 

: 811 1664 4 ((. CHAR GEQ Q) AND (.CHAR LSS 128)) OR 

; \¢ 1665 4 (.CHAR GEQ 128 + 32)) 

: 81 1666 3 THEN 

; 814 1667 4 BEGIN 

; 815 1668 4 EDTS$G.PA_ERRNO = EDTS_KEYNOTDEF; 

; 816 1669 4 RETURN’ (OJ; 

; 8 1670 END; 

; 818 1671 

; 819 167@ EDTSSPA_SCANTOK (); 

; 820 167 END; 

; 821 1674 

3 : ¢ 1973 CDEF_FUN] : 

: bet 1or7 ; EDTS$G_PA_CURCMD CKEY_VAL] = .EDTS$$L_PA_NUMVAL CLN_LOJ + K_FUN_BASE; 

; £56 1679 4 IF ((.EDTS$L_PA_NUMVAL CLN_LO] GTRU 32767) OR ' 

: 827 1680 4 (,EDTSS$SL-PA_NUMVAL [LN-MD] NEQ 0) OR ) 

; 828 1681 4 (,EDTSSL-PA"NUMVAL CLN7HIJ NEQ 0)) 

3 S63 1086 3 

; 830 1683 4 BEGIN 

3; 831 1684 4 EDTS$G_PA_ERRNO = EDTS$_NUMVALILL; 

: o36 1685 4 RETURN (0); 

 & 1686 ; END; 

3; 8 1687 

: 835 1688 4 IF (.EDTS$L_PA_NUMVAL CLN_LO] GTR K_MAX_FUN_VAL) 

3 $39 1689 3 THEN 

; 83 1690 4 BEGIN 

; 838 1691 4 EDTS$G_PA_ERRNO = EDTS$_KEYNOTDEF; 

3; 839 169¢ 4 RETURN” (0); 

3 0 169 3 

: 841 1694 

; 84g 1695 END; | 

: 84 1696 

3 re + 244 CDEF S04 8 Fume : | 

: 46 1699 EDT$$G_PA_CURCMD CKEY_VAL] = .EDTSS$L_PA_NUMVAL CLN_LOJ + K_FUN_BASE + K_GOLD_BASE; 

: 848 1701 4 IF ((.EDTS$L_PA_NUMVAL [LN_LO] GTRU 32767) OR ! 

: 9 17 é 4 (,EDTSSL-PA_-NUMVAL [CLN-MD) NEQ 9) OR ' 

; 850 17 4 (,EDTS$SL-PA-NUMVAL CLN-HIJ NEQ 0)) 

: 851 1704 3 THEN 

3 2¢ 1705 4 BEGIN 

; 85 1706 4 EDT$$G_PA_ERRNO = EDTS_NUMVALILL; | 
| 
} 
| 
| 
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RETURN (0); 
END; 


IF (-EDTSSL_PA_NUMVAL CLN_LOJ GTR K_MAX_FUN_VAL) 


BEGIN 
EDTSS$G_PA_ERRNO = EDTS_KEYNOTDEF; 
RETURN’ (0); 
END; 
CAS. STRINGS : 
EDT$$G_PA_CURCMD CAS_STR] = .EDTSSA_PA_PRVTOK + 1; 
Selene geen AS_LEN] = .EDT$$G_PA_PRVTOKLEN; 
CINIT_SEQ) : 
BEGIN 
BIND 
SWIT = .EDTS$G_PA_CURCMD CSWITS] : NODE_BLOCK; 
MOVELINE (EDTS$$L_LNOO £32 SWIT su VALI); 
ONE tee oth ee nes 5], SWIT CSW_VAL2]); 
purr SEQ_VAL] = 0; 
CDEF_MAC] : 
BEGIN 
EDT$$G_PA_CURCMD bey = .EDT$$Z_PA_CURRNG; 
A ga a miata COM_NUM] = COM_DEF_MAC; 
CTABCOUNT) : 
BEGIN 
LOCAL 
NEG; 
NEG = 0; 
Le (,EDTSSA_PA_CURTOK) EQL %C'-") 


NEG = .NEG + 1; 
EDTSSPA_SCANTOK (); 
END; 
IF (EDTS$G_PA_TOKCLASS NEQ CL_NUMBER) 


BEGIN 
EDTS$G_PA_ERRNO = EDTS_NUMVALREQ; 
Fa (03; 


74 Page 
rCSpRSEMRTN.BLI<4” d 
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SS 
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EMRTN 3 


“4 


1 IF (C.EDTSSL_PA_NUMVAL [LN_LO] GTRU 32767) OR 
1 (.EDTSSL-PA_NUMVAL [CLN-MD] NEQ 9 OR ! 
1 (.EDTSSL-PA[NUMVAL CLNZHIJ NEG 0)) 

1 THEN 

1 BEGIN 

1 EDTS$G_PA_ERRNO = EDTS_NUMVALILL; 

1 RETURN’ (03; 

; END; 


LF ((EDTSSL_PA_NUMVAL CLN_LOJ*.EDT$$G_TAB_SIZ) GTR 255) 


BEGIN 
EDTSSG_PA_ERRNO = EDTS_NUMVALILL; 
RETURN (0); 


SN oo 
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; 1 4 | 

. ihe | 

; 1 5 4 | 

3; 9 1 3 4 

s 9 1 4 | 

; F 1770 4 

> 1771 ; 

3; 9 1 ¢ 

3; F 1 4 

Bo ia 

; 9 1776 4 

3 } f 4 oy 

: 9 1779 . 

: 9 1780 IF .NEG 

3; 9 1781 THEN 

: 4 Be 4 EDT$$G_PA_CURCMD CTAB_COUNT] = -.EDTSS$L_PA_NUMVAL CLN_LOJ : 
i 9 1784 EDTS$G_PA_CURCMD CTAB_COUNT] = .EDTSSL_PA_NUMVAL [LN_LOJ; ; 
; 335 1786 EDTSSPA_SCANTOK (); 
: 935 1788 ? ; 
s; § 1789 CBAD_PARAM] : F 
; TA Hf 4 EDT$$G_PA_ERRNO = EDTS_INVPARFOR; ; 
: 939 179¢ CBAD_VALUE) : 

3 ary 1? EDT$$G_PA_ERRNO = EDTS_INVVALSET; 

: 94 1795 CREQ_NUM) : 

; 945 1796 EDTS$G_PA_ERRNO = EDTS_NUMVALREQ; 

> 945 1798 CREQ_ STRING) : 

; ae8 44 44 EDTS$G_PA_ERRNO = EDT$_QUOSTRREQ; 

: 948 1801 CBAD_RANGE) : 

; 349 1808 EDTS$$G_PA_ERRNO = EDTS_ERRRANSPC; 

: 951 1804 (BAD_OPTION) : 

; 93¢ 1805 EDTS$$G_PA_ERRNO = EDT$_ERRCOMOPT; 

: 954 1807 CUNREC_OPTION) : 

; 322 ! Oe EDT$$G_PA_ERRNO = EDTS_UNRCOMOPT; 

; 989 1810 CREQ_COLON) : 

; 938 1811 EDT$$G_PA_ERRNO = EDTS_COLONREQ; 

: 960 1 18 CMACORKEY) : 

; 61 14 EDT$$G_PA_ERRNO = EDTS_MACKEYREQ; 

: 303 1 16 CENTITY ERR] : 

; 964 EDTS$G_PA_ERRNO = EDTS_ENTMUSTBE; 

: 9 1 15 CREQ_AS) : 

: 96 1820 BEGIN 
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3 1 EDTSSG_DEFKEY = 0; ' don't accept quoted key anymore 

: ! Ew: $G-PA_ERRNO = EDTS_ASREQ; 
5 i 1824 | 
3 Me 1825 CNO_ACTIONJ : 
; 7 1 § : 

; 976 1 

; 975 1 COUTRANGE) : 

: 378 1 ASSERT (0); 

; 97 1 S; 

3 ore 1831 

3 9 1 ¢ 3 Se (1); 

; 980 1 ! of routine EDTSSPA_SEMRUT 


-TITLE EDTSPRSEMRTN EDTSPRSEMRTN = parser semantic act 
ns 
-IDENT \V04-000\ 


-EXTRN EDTSSPA_SCANTOK 
-EXTRN EDTSSPA_ “CRERNGKOD GETCH 


| 
“EXTRN EDTSSPA~ 
“EXTRN EDTS$SPA"NEW_NOD 
-EXTRN EDTSSL_ max _CINES 
“EXTRN EDTSS$A~CMD~BUF EDTSSA_ CMD_END 
“EXTRN EDT$$Z~PA_ANDLSTH 
“EXTRN EDT$$2~PA~BUFRN dia | 
*EXTRN EDTSSC_PA “CH EDTSSG_ PA_CURCMD 
SEXTRN EDT$$2~PA~CURRN 
“EXTRN EDTSSA~ PA CURT OF 
SEXTRN EDTS$G_ “DEFKEY. EDT$$G_PA_CURTOKLEN 
“EXTRN EDT$$G_PA_ERRNO 
“EXTRN EDTS$L~PA_NUMVAL 
SEXTRN EDT$$G_~PA~PCENT 
TEXTRN EDT$$A~PA-PRVTOK 
“EXTRN EDT$$G_PA~PRVTOKLEN 
“EXTRN EDT$$G_PA"SP, ED TSSZ. PA_THRURNG 
“EXTRN EDTS$$G_ PA = 10k CLASS 
[EXTRN EDTS$$G~P Nooud | 
*EXTRN EDT “LNOO EDT$$B_CHAR_INFO 
“EXTRN EDT$$G-TAB $12, EDTS_INVBUFNAM 
EXTRN DTS GOOSTRREG, EDTS"NONA LPNUM 
SEXTRN EDTS-SUBSTRNUL, EDTS$~ UNA | 
SEXTRN EDTS"KEYNOTDEF. EDT$~NUMVALREQ 
*EXTRN EDTS“INVPAREOR, EDISTINVVA LSET 
“EXTRN EDTS"ERRRANSPC, EDTS— ERRCOROPT | 
TEXTRN EDTS"UNRCOMOPT, EDT$~COLONREQ 
TEXTRN EDTS“MACKEYREQ, EDTS ENTMUSTBE 
“EXTRN EDTS-ASREG, EDTS_INVSTR 
“EXTRN EDTS~ “NORVACILL. SNS INTER _ERR 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
OFFC 00000 ~ENTRY RO RIO.R re Save R2,R3,R4,R5,R6,R7,R8,- ; 
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F04~000 EDTSSPA_SEMRUT ¢- parser sementic actions 12-8081 88e 93:33:92 PT KSUMGMASTERSCEDT SRCTPRSEMRTN.BLICT” (3) | 
| 
154$-1$,- ; ; 
1338-18;- 3 ; 
147$-1$.- ; ; 
1ge8-18.~ : : 
108$-1$,- : | : 
114$-1$,- 3 ‘ 
1048-18, : ; 
93$-1$ 3 : 
O2BE 31 aS BRW 60$ : 1829 : 
000000006 b3 A 2$ Ist §DTS$6_PA_NoauO + 1075 : 
000000006 00 Fe oa CALLS #0 EDTSSINTER_ERR : : 
000000006 D B/ 38: CLRL «EDF $$G_DEFKEY ; 1076 ‘ 
0 3 BD HOVL EDTSSG_PA_CURCHD, RO + 1078 . 
10 a0 000000006 D te MOVL  EDTS$$G_PA_SP, 16(RO) : : 
08 AC DD OOOCA 4$ PUSHL  OPERAND + 1080 : 
1 DD 000CD PUSHL #1 : : 
000000006 00 FB OOOCF CALLS 2, EDTS$PA_NEW_NOD : ; 
68 DO 00006 MOVL RO, EDT$$G_PA_CORCMD : : 
62 13 00009 BEQL «6soO9S : : 
10 08 AC 01 00008 CMPL PERAND, #16 + 1086 ; 
06 13 OO0DF BEQL ; : 
13 08 AC D1 000E1 CMPL §OPERAND, #19 : : 
7 if 00ES BNEQ 1 : : 
000000006 00 01 0g OE? 5$ MOVL H, EDT$$G_PA_NOQUO - : 
08 AC DD OOOFO 6s PUSHL  OPERAND : 1098 : 
02 0D 000F PUSHL # : : 
000000006 00 FB OOOF CALLS #2, EDT$$PA_NEW_NOD : ; 
6A DO OOOFC MOVL RO, EDT$$Z_PA_CORRNG 3 : 
C 13 OOOFF BEQL 69S : 3 
01 000000006 00 pi O10) cHPL FDIS$G_PA_TOKCLASS, "1 > 1095 : 
OOFA if O10A BRW 35$ : 1097 ; 
08 Ac D3 0100 7$ TSTL § OPERAND > 1104 ; 
7A 1 oor BEQL 15$ : : 
7E 08 Ac 07 ci 0011 ADDL3 #7, OPERAND, -(SP) : 1107 3 
15 DD 0011 PUSHL #2 ; : 
FEE2 CF 0g FB o119 CALLS #2, EDTSSPA_SEMRUT : : 
00c9 31 OO11E BRW 28$ : ; 
69 000000006 8F DO 00121 8s MOVL §§ #EDTS_INVBUFNAM, EDT$$G_PA_ERRNO + 1113 : 
000000006 9 Hi Fe 4 8 CALLS ° ‘ FOTSSPA_APPOIG ; 1115 : 
p DD 00132 PUSHL #15 : 1117 ; 
15 DD 001 PUSHL #21 : : 
FECS CF $6 F CALLS ‘ , EDTSSPA_SEMRUT : : 
° 130 9 BEQL 18% ; 
5 6A 00 0013F MOVL § EDTS$$Z_PA_CURRNG, RO > 1119 
8 A D Ibe MOVL EDTS$A“PATCURTOK, 8(RO) : 
¢ AO 000000006 DO 0014 MOVL EDTSS$G~PATCURTOKLEN, 12(RO) : 1120 
000000006 0 p 135 MOVL R § EDT$$7_PA_BUFRNG : } 
000000006 00 9 8 13 108: CALLS #0, EDTSSPA_APPDIG > 1126 
11 001 : 11$: BRB 23§ ; 
50 000000006 00 DO 00160 12$:  MOVL = EDT$$Z_PA_BUFRNG, RO : 1130 
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vOe EDTSSPA: SEMRUT a parser semantic actions 1 733b= 1382 93:82:98 DISKSVMSMASTER:CEDT.SRC PRSEMRTN.BLI;1> § 
C4 =A 6A : 167 MOVL EDTSSZ_PA_CURRNG, 4 (RO) : 
181 1 BRW $ + 1131 
5 4 rH 166 13$:  MOVL EDT$$Z_PA_CURRNG, RO : 1136 
04 AD 000000006 G0 DO 001 MOVL.  EDTS$G~PA“PRVTOKLEN, 4 (RO) : 
08 A0 000000006 0 é 1 ADDL3 #1, EDTS$A_PA_PRVTOK, 8(RO) : 1137 
F 01 Ad 1 CMPB RO), wis + 1139 
01 a0 f i lap tet NES ats, 1¢R0) : 
77? 11 °0018¢ 15$: BRB | eda : 1066 
52 6A DO O018E 16$:  MOVL = EDT$$Z_PA_CURRNG, SUB_RAN + 114 
DD 001 PUSHL #19 + 1151 
DD 19 PUSHL #21 : 
FE66 OCF Q FB 1 CALLS #2, EDTS$SPA_SEMRUT : 
; E9 OO19A 17$ BLEC—OséR ; : 
0 A 00 9190 MOVL EDT$$Z_PA_CURRNG, RO + 1156 
10 A 53 DO 001A0 MOVL SuB_RAR T6(RO) : 
14 ne DO O01A4 MOVL R 20 (Sue RAN) + 1157 
03 000000006 9 D4 O1AS CPL Epis G_PA_TOKCLASS, #3 ; 1159 
69 000000006 f 6 O18) na MOVL #EDTS_QUOSTRREQ, EDT$$G_PA_ERRNO ; 1162 
04 AO 000000006 00 DO 001BA 19$:  MOVL. EDT$$G_PA_CURTOKLEN, 4(RO) + 1166 
08 a0 68 1 c1 ice ADDL3 #1, EDTS$A_PA_CURTOK, 8(RO) + 1167 
0505 31 O01C 208: BRW 141$ + 1168 
50 oe 00 OicA 1$: MOVL EDISS6_PA_CURCHD, RO ; 1172 
50 68 DO 00100 228: MOVL §EDT$$G_PA_CURCMD, RO : 1175 
08 Ad $A D0 o103 me MOVL EDISSZ_PA_CURRNG, 8(RO) 
OB oh a0103 se pa g 1179 
Gr 9p Soimp 25s: usm Bi : 1183 
8 DD Boieh $: PUSHL #16 + 1187 
000000006 00 gi FB OOiES $: CALLS #1, EDT$SPA_CRERNGNOD : 
31 13 OIEC NEG Ses 
0622 31 OO1EE 298 BRW 156$ : 
02 a é OiF} $38 Istw EDTSSL_PA_NUMVAL +2 ; 1192 
04 yi B ait ISTH EDTSSL_PA_NUMVAL #4 ; 
oss? $7 ootFS 308: Bettas ; 
50 A 20 Ore $$: MOVL  EDT$$Z_PA_CURRNG, RO > 1199 
04 A e Sc 0 ai MOV ZL EDISSL_PALNUMVAL 4(RO) Pi 
50 6A : ; $e: MOVL EDT$$Z_PA_CURRNG, RO : 120 
04 Ad 67 6 A MOVC3 *" EDTSSC_PA_NUMVAL, 4(RO) 5 
0st 1 F 368: BRW 155$ ; 
5 04 a? 3¢ le $:  MOVZWL HIGH_1, R : 1217 
36 000000006 9 € 0021 MOVZ2WL HIGH g. R : 
D1 0021 CMPL ~=saR2, R ; 
RS a ; 
s 000000006 60 3 7 MOVE Ree RD ; 
§ ? D1 0022E CMPL =e R11, “RO : 
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5 iE BGEQU 39S ; 

50 1 ( 38$ MNEGL #1, RO : 

9 BRB i$ ; 

4 398 BNEQ  40$ : 

9 D4 A CLRL oR : 

11 C BRB 41$ : 

50 1 00 40$ MOVL #1, RO : 

Bg 14 00241 41$ BGTR 2s : 

08 AE $ 00 4 MOVL EDTS$L. PA_NUMVAL, M2 ; 

OC AE 2 p 0 4 MOVL  R2, M2%4 ; 

6F 48 CLRO OP : 

50 1 p 0 40 MOVL #16, 1 : 

3 6 gi 42$ ASHO #1, P, P : 
09 000000006 0 0 £1 00254 BBC 1, M1, 43$ ; 
6E 08 AE co 0 ADDL2 Me ; 

04 A C AE D ADWC sy, ; 

E 50 F4 00265 43$: SOBGEQ I, 42$ : 

7 GE D0 00¢68 MOVL P. EDT$$L_PA_NUMVAL F 

04 A? 04 AE B80 00 MOVW P+4, EDTSSL_PA_NUMVAL+4 : 

50 68 DO 00 MOVL § EDT$$A_PA_CORTOK, RO ; 

2E 60 91 0027 CMPB ss (RO), B46 ; 

9 if 0 1 BNEQ  36$ : 

52 04 00 0027 MOVL #4, MULTIPLIER : 

50 000000006 00 b0 00 iB 44$:  MOVL EDTS$$C_PA_CH, RO : 

FO BF 0000000060040 91 0028 CMPB =: EDTS$B—CHAR_INFOCROJ, #240 : 

03 13 00288 BEQL 45$ : 

050F 31 0 BRW 141$ : 

10 AE DO AO 9E 00290 458 MOVAB -48(RO), DIGIT : 

14 AE D4 0029 CLRL DIGIT+4 ; 

52 05 00298 TSTL MULTIPLIER ; 

46 19 00 9A BLSS 48$ : 

50 52 06 C5 0029C MULL3 #6, MULTIPLIER, RO : 
08 AE 10 AE DO 00 Ap OVL DIGIT, M2 : 

OC AE 14 AE 3C OO2A MOVZWL DIGIT+4, M2+4 ; 

6— 7C OO2AA CLRO oP : 

51 1 06 O2AC MOVL #16, I ; 

E 6c 1 O2AF 46$:  ASHQ #1, P, P ; 
09 000000006004 1 £1 002B3 BBC 1, EDTS$L_LNOOCROJ, 47$ ; 
6E 08 AE co 02BC ADDL2 Me. P F 

04 =A OC AE D8 002C ADWC 306 M2, P ; 

E 51 F4 002C5 47$ SOBGEQ 1, 46$ : 

10 AE 6E DO 002C MOVL PP. DIGIT F 

4 =A 04 AE B CC MOVW P44, DIGIT+4 ; 

5 6 A? B D1 MOVW § UPPER_WORD, SAVE : 

6 1 AE C D5 ADDL2 DIGIT? EDT$S$L_PA_NUMVAL F 

4 AZ 14 AE OD 09 ADWC = DIGIT, EDT$SL~PA-NUMVAL+4 : 

$ A7 50 B Dd MOVW SAVE, UPPER_WORD 3 
000000006 00 9 Fe ED 48$ CALLS #0, EDT$$PA~GETCH : 
D E DECL MULTIPLIER ; 

11 OO2EB BRB 4 : 

43 7D OOCED 49$:  MOVa #2, -(SP) ; 

000000006 0 F F CALLS #2. EDTS$$PA_NEW_NOD ; 
000000006 00 D F MOVL RO, EDT$$Z_PA_TARURNG ; 
} F BNEG 50$ ; 

05 BRW 156$ ; 

50 000000006 0 06 508: MOVL § EDT$$Z_PA_THRURNG, RO F 

06 A AD A51$:  MOVL  EDT$$Z~PATCURRNG, 4(RO) ; 
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1 0 BRB 61$ : 1066) ; 
50 000000006 Op 19 528 MOVL EDTS$7 PA_THRURNG, RO 3 1988 | ; 
8 A AD is HOVE atésh Fa CURRNG 8(RO) : 1270 
6A 5 p 1F 53$ MOV RO, EDT$$2_PA_CURRNG : 1371 : 
000000006 00 6A 00 i 54$ MOVL EDIS$Z_PA_CURRNG, EDT$$2_PA_ANDLSTHD : 1998 : 
52 000000006 Q D D 55$ MOVL § EDT$$Z_PA_ANDLSTHD, R2 + 1283 F 
D MOVL 2, RANGE : : 
10 AO D 7 56$ TSTL § 16(RANGE) + 1288 F 
06 1 A BEQL 578 : ; 
50 10 AO D MOVL §§_16(RANGE), RANGE : 1289 : 
F511 0034 BRB 56$ : : 
51 AD 42 57$ MOVL  EDT$$Z_PA_CURRNG, R1 : 1291 ; 
10 Ao 1 DO 0034 MOVL  R1, 16TRANGE) : ; 
14 «AI 0 DO 00349 MOVL = RANGE g0(Ri) : 1292 ; 
6A 52 D0 0 4D MOVL 2, EDT$$Z_PA_CURRNG + 129 ; 
18 11 0035 BRB 61$ + 1066 F 
01 08 AC D1 00352 Sas CMPL _ OPERAND, #1 + 1299 ; 
07 12 0035 BNEQ 59$ : ; 
$8 DO 0035 MOVL §§ EDT$$G_PA_CURCMD, RO ; : 
01 AO 13 90 00358 MOVE #19, 1TR : : 
07 000000006 00 €E8 0035F 59$:  BLBS  EDT$$G_PA_NOQUO, 61$ + 1305 : 
000000006 00 90 FB 00 66 60$: CALLS #9 EDTSSINTER_ERR : ; 
049F 31 00 $0 61$:  BRW 155$ + 1066 ; 
07 000000006 99 E8 00 Q 62$: BLBS €EDT$$G_PA_NOQUO, 63$ + 1326 F 
000000006 00 0 FB 0037 CALLS #0, EDTSSINTER_ERR : ; 
000000006 09 D4 00 7E 63$: CLRL EDT $$G_PA_NOQUO + 1327 ; 
E 03 7D 00384 MOVa = #3, -=(5 + 1329 : 
000000006 00 92 FB 00387 CALLS #2, EDTS$$PA_NEW_NOD ; : 
52 DO 0038 MOVL RO, STRNODE ; : 
59 13 00391 BEQL 6-6 7$ ; : 
50 68 D0 00393 MOVL §§ EDT$$G_PA_CURCMD, RO + 1331 ; 
08 A0 38 DO 00396 MOVL §STRNODE, 8(RO) : : 
02 000000006 00 01 0039A CMPL  EDT$$G_PA_TOKCLASS, #2 : 1333 3 
09 13 003A1 BEQL 64$ : ; 
69 000000006 8F 00 003A3 MOVL #EDTS_NONALPNUM, EDT$$G_PA_ERRNO : 1336 : 
40 11 OO3AA BRB 67$ : 1337 ; 
51 6B DO OO3AC 64$:  MOVL EDTS$S$A_PA_CURTOK, R1 : 1340 : 
33 61 9A OO3AF MOV2BL (R1), QUOTE : 3 
0 01 «Al 3 0 Be MOVAB. 1(R15, CURSOR + 1341 ; 
04 Ag 0D MOVL CURSOR, 4(STRNODE) + 1342 ; 
53 60 0 0 FD BA 65$:  CMPZ2V #0, #8. (CURSOR), QUOTE > 1344 : 
D BF BEQL 66$ : : 
000000006 00 30 pi 0 cl CHP CURSOR, EDT$S$A_CMD_END : : 
8% D6 OO3CA INCL CURSOR > 1345 : 
gc 11 003CC BRB : : 
51 59 1 cs CE 66$ SUBL3. RI CURSOR R1 : 1347 : 
08 A FF OA D MOVAB -1(R1), 8(STRNODE) ; : 
D D INCL CURSOR ; 138 ; 
51 000000006 D 09 VL EDTS$SA_CMD_END, R1 : 1350 ; 
1 D1 E CMPL CURSOR R1 : : 
B E BLEQU 6 : : 
69 000000006 8F »D E OVL #EDTS_INVSTR, EDT$$G_PA_ERRNO ; 1353 : 
41 11 OO3EC 67%: BRB 71$ : 1354 : 
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104-000 EDTSSPA_SEMRUT . parser semantic actions 1 30071384 93:52:98 DISKSVMGMASTERSCEDT  SRCTPRSEMRTN.BLI-4° 3 
OC A DO OO3EE 68$: MOV CURSOR, 12(STRNODE) 3 1357 
53 60 Og p FD iS gb: CMPZ7v #0, #8, (CURSOR), QUOTE : 1334 
f BEQL : 
51 0 D1 003F9 CMPL RSOR, R1 : 
4 1 FC BGE GU : 
> p Hi INCL CURSOR + 1360 
10 A2 50 Cc oO 402 70$:  SUBL3  12(STRNODE), CURSOR, 16(STRNODE) + 136 
900000006 99 gf A Se 4 MOVAB =: 1(RO) EDTSSA CMD _BUF + 136 
000000006 00 : FB 0041 CALLS 40, EST$SPA_GETCH + 1364 
000000006 00 FB 0041 CALLS #0, EDTS$PA-SCANTOK + 1365 
10 A p 4 F TSTL Jo{STRNODE) + 1367 
2 4 BNEQ 4 : 
08 A2 D5 00423 TSTL 8 (STRNODE) : 
1E 12 004 é BNEG 4 : 
69 000000006 _8F p 04 MOVL #EDTS_SUBSTRNUL, EDT$$G_PA_ERRNO + 1370 
O3E1 31 0040F 71$: BRW 156$ : 1371 
07 000000006 60 EB 004 2 72$: LBS § EDT$$G_PA_NOQUO, 73$ : 1378 
000000006 00 0 FB 004 CALLS #0 EDTSSINTER ERR : 
000000006 00 bs 440 73$:  CLRL EDf$$G_PA_NOGUO : 1379 
03¢6 1 00446 74$: BRW 155$ + 1066 
50 68 00 00449 75$:  MOVL EDT$$G_PA_CURCMD, RO + 1391 
51 68 D6 O44¢ MOVL § EDTS$$A"PA“CURTOK. R1 : 
08 Ao 1 00 0044F MOVL 1, 8(RO : 
000000006 00 51 DO 00453 MOVL R1, EDT$S$A_CMD_BUF + 139 
53 D4 0045A CLRL  SCAN_ONE + 139 
3g D4 0045C 76$:  CLRL QUOTE CHAR + 1394 
46 53 €8 0045E 77$:  BLBS | SCAN BONE, 82$ + 1396 
000000006 00 000000006 00 »1 00461 CMPL EDTSSA_CHD_BUF. EDTSS$A_CMD_END : 1398 
1E 1A 0046C BGTRU 78$ : 
54 000000006 00 00 O4ge MOVL § EDT$SA_CMD_BUF, R4 + 1403 
51 64 9A 004 MOVZBL (R4), CHAR r 
000000006 99 D6 0478 INCL EDT$$A_CMD_BUF ; 
2 DS O047E TSTL  QUOTE_CHAR + 1405 
iE if 0480 BNEG «81 : 
20 51 01 004 é CMPL CHAR, #32 + 1411 
03 13 0048 BEQL 8$ : 
2F 1 D1 00487 CMPL HAR, #47 : 
05 if 048A BNEG 9 F 
53 1 00 0048C 78$:  MOVL #1, SCAN_DONE > 1412 
cD 11 04 F BRB F 
22 1 01 00491 79%: CMPL HAR, #34 + 1414 
03 13 00494 BEQL ; 
27 } : 496 CMPL HAR, #39 : 
g 4 BNEO ; 
52 1 00 00498 80$:  MOVL CHAR, QUOTE_CHAR > 1415 
BE 11 0049: BRB 7$ : 
52 1 01 .004A0 81%: CMPL CHAR, QUOTE_CHAR > 1425 
89 le 4A BNEG 7$ F 
8? 11 004A BRB 76$ ; 
000000006 00 1 00 0047 82$:  MOVL CHAR, EDTS$C_PA_CH > 1429 
2c 11 004A BRB 6$ > 1430 
50 DO 00480 835 MOVL  EDT$$G_PA_CURCMD, RO > 1436 
; DO 0048 MOVL  EDTS$SATPATCURTOK. R1 ; 
0806 60 1 BO OOCBA ROVE, Ri” EOTSOA_ CRD. UF £1437 
itd G 8 0 FB 004C1 84$ CALLS #0, EDTSS$PA_GETCH : 1236 
j 
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EDTS$C_PA_CH, RO 
Bos ns 

G_PA 

,, 


G_PA_PCENT 


-PA_CURCMD, RO 


P) 
$$PA_NEW_NOD 
NODE 
PA_CURCMD, R1 
NODE, 20(R1) 
SWITCH NODE 
CH_NODE), R1 
4(SWITCH_NODE) 
G_PA_CURCMD, RO 
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CURCMD, RO 
EDTS$A CMO_BUF, R1 
12(ROY 
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ONRTOM, E6T$$G_PA_ERRNO 


$$L_PA_NUMVAL, 8(R6) 
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DISPRSEMRITN = parser semantic action 1b-5¢ -1984 3: AX-11 Bliss-32 V4.0-74 e 7 
EDISSPACSEMRUT oo parser semantic actions 1 ~3ep-19 93 $2:9% DI SKSVMGPASTERSCEDT SRCTPRSEMRTN.BLI64 7" (3 
39 1A 00594 BGTRU 103$ : : 
02 3} 8 36 TSTW FD TSSL_PA_NUMVAL #2 : 1522 : 
34 BNEQ $ : : 
04 A7 ° TSTW GB TSSL_PA_NUAVAL +4 : 1523 ° 
F BNEQ 03$ : : 
5 8 D A MOVL EDTS$G PA_CURCMD, RO : 1530 : 
oC A } p A ROVL Rig! TROT 7 ; 
000000006 00 } b0 AD 99S: MOVL i EDTS$$G_DEFKEY : 1998 : 
47 1 B 1008: BRB 10$$ : 1066 : 
50 68 0 00582 101$: MOVL EDTS$$G_PA_CURCMD, RO + 154 : 
1 67 3C 0058 MOVZWL gprs PA-NUMVAL, R1 : ; 
10 AO o12c C1 F B OV OO(RIT, T6(RO) : ; 
7FFF ORF 1 2 BE 102$: CMPW R11, #32767 + 1542 : 
A 1A 005¢ BGTRU 108$ : ; 
02 A? B O3¢ TSTW EDT$SL_PA_NUMVAL#2 + 1543 F 
05 12 005¢ BNEQ 03$ : ; 
06 A? B Ota TSTW  EDTS$L_PA_NUMVAL+4 + 1544 ; 
11 13 005¢D BEQL 1958 : ; 
0183 37 5c 103$: BRW 137$ t 1547 ; 
50 3 b0 30 1048: MOVL  EDT$$G_PA_CURCMD, RO : 1562 : 
51 67 3¢ 0050 MOVZWL EDTSSL PA-NUMVAL, R1 F : 
10 AO 0320 C1 H 0508 MOVAB O9(R J, T6(RO) : ; 
DE 11 005D BRB 102$ + 1564 : 
15 1 8! 0560 1058: CMPW Ri, #21 + 1573 ; 
0107 31 005E BRW 127$ : ; 
50 68 b0 05E6 106$: MOVL #EDT$$G_PA_CURCMD, RO + 1584 3 
10 AO 0273 8F C Boer MOVZWL #627, T6(RO) : $ 
08 11 OOSEF 107%: BRB 109$ > 1066 3 
50 68 DO 005F1 108$:  MOVL EDI$SG PA_CURCMD, RO : 1589 ; 
10 AO 7F BF 9A 005F4 MOVZBL fe » TOCRO) ; : 
0213 31 005F9 109$: BRW 155$ > 1066 3 
50 68 DO O05FC 110$: MOVL § EDTS$A_PA_CURTOK, RO + 1604 ; 
31 60 9A OO05FF MOVZBL (RO), C ; : 
0 68 DO 0602 MOVL EDT SSG PA_CURCMD, RO : 1605 3 
10 AO O1F4 C1 SE 0060 MOVAB SO00(R1J, T F ; 
01 000000006 90 D1 0608 CMPL  EDT$$G_PA_CURTOKLEN, #1 ; 1607 : 
1 12 0061 BNEG 115$ : : 
FO. aS 0000000060041 9 0614 CMB EDI$SB_CHAR_INFOLCHAR], #240 > 1611 ; 
20 i D1 0061F CMPL CHAR, #32 : 1616 3 
B 19 00622 BLSS  118$ : : 
QOO000FF BF 3 D1 oe 4 CHPL CHAR, #255 + 1617 : 
00000080 = &F 31 bt ¢ Dd CHPL CHAR, #128 : 1618 : 
000000A0 = BF 51 D4 é 6 CHPL CHAR. #160 F : 
0000007F 8F 31 63F 111$:  CMPL CHAR, #127 + 1619 ; 
0 646 11¢8: BEQL 1218 : : 
0154 648 113$: BRW 141$ ; : 
0 68 b0 648 1148: MOVL EDTS$$A_PA_CURTOK, RO > 1635 : 
1 60 9A uF MOV ZBL (RO) CHAR : : 
1 co. OAT 3 MOVAB. -64(R1), CHAR : : 
0 68 p 6 3 MOVL ED T$S6 PA CURCMD, RO : 1636 ; 
10 AO 1F4 f F 6 MOVAB OCRIS RO) ; : 
@1 000000006 60 01 0065€ CMPL  EDT$$G_PA_CURTOKLEN, #1 > 1638 : 


EDTSPRSEMRIN EDT ponsena ty = parser semantic action 16-50 Sep-1 VAX-11 Bliss-32 V4.0 | 
vitae EDTSSPA_SEMRUT = parser sonentte actions 1 ~3007} 382 9: $3 :03 DISKSVMSMASTER:CEDT. she PRSEMRIN.BLI; pgge (3 
1 1 115$: BNEQ 1218 ; 
1 08 et TSTL CHAR + 1639 
4D 9 BLSS 121$ : 
OOOO0OFF BF 31 p} CHPL CHAR, #255 + 1640 
20 D1 7 CMPL CHAR, #32 + 1641 
6 19 0067 BLSS 20$ ; 
00000080 &F 1 01 00679 116$:  CMPL CHAR. #128 : 
D 19 006 BLSS 388 : 
B 11 6 BRB 120$ + 1642 
0 6 po 1178 HOV EDTSS$A_PA_CURTOK, RO + 1658 
1 § A 00687 MOV Bt (RO), CHAR : 
1 C2 68A SUBL2 #56, CH : 
0 p 06 MOVL €DT$$G_PA_CURCMD, RO : 1659 
10 AO 1 7E 00690 MOVAQ =(CHARY ) : 
01 000000006 9 D1 0694 CMPL DT$$G_PA_CURTOKLEN, #1 + 1661 
ig 698 BNEQ 28$ 5 
1 05 00690 TSTL CHAR + 1662 
4E 19 0069F 118%: BLSS 1288 : 
OOOO0OFF BF 51 01 006A1 CMPL CHAR, #255 + 1663 
45 16 006A8 119$: BGTR 128$ F 
20 51 D1 OO6AA CMPL CHAR, #32 + 1664 
CA 18 006AD BGEG = 116$ : 
000000A0_—s BF 51 01 OO6AF 120$: CMPL CHAR, #160 + 1665 
4! 19 006 BLSS  113$ : 
35 11 00688 121$: BRB 128$ + 1668 
29 68 0 O6BA 122$ MOVL EDTS$G_PA_CURCMD, RO : 1677 
1 67 3C 006B8D MOVZWL EDTSS$L~PA-NUMVAL. R1 ; 
10 AO 0190 c1 oF 06C0 MOVAB 4OO(RIT, T6(RO) ; 
7FFF OF 1 BT 006C6 1238: CMPW R11, #32767 : 1679 
OA 1A 006CB BGTRU 124$ ; 
02 A7 BS 006CD TST EDTSSL_PA_NUMVAL+2 + 1680 
05 12 00600 BNEQ 124$ ; 
04 A7 B85 006D TSTW EDTSSL_PA_NUMVAL +4 > 1681 
11 13 006D BEQL @$8 ; 
00AB 31 006D 1248: BRW 137$ + 1684 
50 68 DO 006DA 125$: MOVL EDTS$$G_PA_CURCMD, RO : 1699 
51 67 3C 006DD MOVZWL EDTSSL PA-NUMVAL, R1 ; 
10 AO 0384 C1 ‘ 06E0 MOV QOcRIy, T6(RO) ; 
DE 1 O6E6 BRB 123$ : 1701 
0063 «BF BI 6E8 126%: CMPW RI, #99 : 1710 
49 O6ED 127$: BLEQU 1328 : 
69 000000006 8F DO OO6EF 128%:  MOVL #EDTS. KEYNOTDEF, EDT$$G_PA_ERRNO : 1713 
66 1 O6F6 BRB 135$ : 1714 
50 DO 006F8 1298: MOVL. EDT$$G_PA_CURCMD, RO : 1721 
08 Aad 000000006 00 1 C1 FB ADDL3 #1 gorse PA PRVTOK, 8(RO) ; 
0C Ad 000000006 0 oO 104 ROVL Fots G_PA_PRVTOKLEN, 12(RO) : 1722 
0 68 00 OO70E 130$:  MOVL EDTSSC_PA CURCMD, RO > 1729 
08 a6 000000006 7 = ae moves Se. eofser : 1731 
146 Ab itdtitddits ps Og 8 al move a6: EDTSSL- -tNOs 38. Bere ; 1182 
008? 1 0072A BRW 143$ : 1066 
5 68 00 007 p 131$: MOVL  EDT$$G_PA_CURCMD, RO : 1 
A 6A p 7 MOVL EDTS$z/ PA“CURRNG, 4(RO) ; 
A 18 7 MOVB 4, 1TROY : 1739 
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$$A_PA_CURTOK, RO 
45 


DTSS$PA_SCANTOK 

G_PA_TOKCLASS, #1 

-NUMVALREQ, EDTS$$G_PA_ERRNO 
PA_NUMVAL, R1 

bobe7 


$L_PA_NUMVAL +2 
$SL_PA_NUMVAL +4 
$G_TAB_SIZ, R1, RO 
7355 ws 


FP RAPHAPRHAAR KHA-aAPGE 


TS_NUMVALILL, EDT$$G_PA_ERRNO 
$$G_PA_CURCMD, RO 

, 1808 

8(RO) 


8(RO) 
EDTS$PA_SCANTOK 


$_INVPARFOR, EDT$$G_PA_ERRNO 
TS_INVVALSET, EDT$$G_PA_ERRNO 
TS_NUMVALREQ, EDT$$G_PA_ERRNO 
T$_QUOSTRREQ, EDT$$G_PA_ERRNO 
T$_ERRRANSPC, EDT$$G_PA_ERRNO 
TS_ERRCOMOPT, EDT$$G_PA_ERRNO 
TS_UNRCOMOPT, EDT$$G_PA_ERRNO 
T$_COLONREQ, EDTS$$G_PA_ERRNO 

$_MACKEYREQ, EDT$$G_PA_ERRNO 
$_ENTMUSTBE, EDT$$G_PA_ERRNO 


$G_DEFKEY 
$ ASREG, EDT$$G_PA_ERRNO 
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EDTSPRSEMRIN EDTSPRSEMRIN = parser semantic actions 16-Sep-1984 01:23:05 VAX-11 Bliss-32 V4.0-7 Page 
v04-000 EDTSSPA_SEMRUT = parser semantic actions 14-Sep-1984 12:24:15 DISKSVMSMASTER: CEDT. sre PRSEMRTN.BLI;1 
; 9846 18 $ } 1 END ! of module EDTSPRSEMRTN 
3 + #4 HY 
; 9 1838 0 ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: EDTSCODE 2070 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
: socen=-- Symbols ----- ooo Pages Processing 
3 File Total Loaded Percent Mapped Time 
> _$255$DUA28:CEDT.SRCJEDT.L32;1 377 82 21 40 00:00.2 
3 ~$255$DUA28: EDT. See dr eeelpcbeer se 2 1 50 7 00:00.1 
; =$255$DUA28: SRCIKEYPADDEF »4 3211 34 4 11 7 00:00.1 
: 7$255$puA28: EDT: “SRC ISUPPORTS.L 32; 1 2 1 50 5 00:00.1 
s COMMAND QUALIFIERS 
3 Po La ee SEC OE? COLD, SME TEAL GPT SIEESD STRACERACESL 5A 15S sPREERRTAIES ORS sPROENN IN MSRC$:°RSEMRTN.BLI/UPDATE=(ENHS$:PRSE 
3 Sizes sort. C , + 0 data bytes 
3; Run Time 1335.4 
8 Sleseed. Tees 01: 
3; Lines/CPU Min: 118 
3 ponenee/<Pe-aig: 794 
: 563 pages 
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